home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / scr sav example (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  563b  |  23 lines
  1. 10 'copyright 1990 compute! publications, inc. all rights reserved.
  2. 15 poke 55,0:poke56,32:clr:' reserve area above 8192
  3. 20 (NULL) $a000,$b000:(NULL)usr 1,0:(NULL)sqr 1
  4. 30 'write "scr.bass,p,w"
  5. 40 (NULL)rnd $2000
  6. 42 (NULL) 1
  7. 43 (NULL)t1=$a000:' storage area under rom
  8. 44 (NULL)t2=$a400
  9. 55 (NULL)cont (NULL)recall
  10. 70 (NULL)store (NULL)sys #0:' zero loop counter
  11. 80 for i=0 to 999:'rem inline basic code
  12. 90 (NULL)clr 1024+i:(NULL)/ (NULL)t1+i
  13. 95 (NULL)clr 55296+i:(NULL)/ (NULL)t2+i
  14. 100 next
  15. 110 (NULL)not
  16. 200 (NULL)recall (NULL)clr 1:(NULL)get:and #254:(NULL)/ 1:' switch to ram
  17. 210 for i=0 to 999:'rem inline basic code
  18. 215 (NULL)clr (NULL)t1+i:(NULL)/ 1024+i
  19. 220 (NULL)clr (NULL)t2+i:(NULL)/ 55296+i
  20. 225 next
  21. 292 (NULL)tab(:(NULL)/ 1:(NULL)not
  22. 999 (NULL) 2
  23.